home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
SwapMM.zprx
< prev
next >
Wrap
Text File
|
1995-01-22
|
3KB
|
130 lines
/*
$VER: SwapMealMasters.zprx V1.0 (20.01.1995) - Björn Koch
Dieses Skript wurde speziell für Zodiac`s Point erstellt, und dient
zum automatischen Auslagern von MealMaster-Rezepten in ein
einstellbares Verzeichnes. Die ausgelagerten Rezepte koennen auf
Wunsch direkt gelöscht, oder zum Aufräumen markiert werden.
Dieses Skript darf beliebig kopieren werden, solange es zusammen mit
Zodiac's Point eingesetzt wird. Veränderungen ohne Erlaubnis des
Autors (außer dem Konfigurationsteil) sind nicht erlaubt.
Hinweise zur Installation:
Einfach dieses Skript in das Rexx-Verzeichnis von ZP kopieren, die
Feinabstimmung vornehmen und auf Wunsch die Zeile
"F1:SYS:Rexxc/rx ZPoint:Rexx/SwapMM.zprx %s"
in die Datei 'fkeys.zp' einfügen.
Viel effektiver jedoch ist das Einfügen in die Skript-Datei
'stepin.zp' des entsprechenden Brettes. Dann sollte der Eintrag wie
folgt lauten:
"Run >NIL: SYS:Rexxc/rx ZPoint:Rexx/SwapMM.zprx".
Dabei bitte an das S-Bit denken !!!
Nähere Angaben zu den Dateien 'fkeys.zp' und 'stepin.zp' sind in der
Guide-Datei zu Zodiac`s Point zu finden.
Der Autor kann keine Haftung für eventuelle Schäden und Verluste jeder
Art, die im Zusammenhang mit der Benutzung dieses Skriptes entstehen
haftbar gemacht werden.
Für Anregungen, Fehlermeldungen und Verbesserungsvorschläge ist der
Autor sehr dankbar und wie folgt zu erreichen:
Björn Koch H.Humpel@NOSTLGIC.oche.de
*/
/* Die Feinabstimmung: (Beginn Konfigurationsteil) */
MMFind = 'MMMMM-----' /* Daran erkennt man das MealMaster-Format */
TemporaerDatei = 'T:find.mm' /* Die Zwischenablage */
RezeptPfad = 'RAM:T/' /* Hier sollen die Rezepte hin ( / oder : nicht vergessen!) */
SaveHeader = 0 /* Soll der Nachrichtenkopf mit gespeichert werden? */
AutoDelete = 2 /* 0=nichts tun, 1=markiere zum Löschen, 2=lösche jetzt */
/* AB HIER BITTE NICHTS MEHR ÄNDERN!!! (Ende Konfigurationsteil) */
OPTIONS RESULTS
PARSE ARG ZPPort
IF ZPPort == "" THEN
ZPPort = 'ZPoint'
ADDRESS VALUE ZPPort
WHICHLEVEL
Level=RESULT
IF Level ~= "BOARD" THEN DO
REQUESTNOTIFY " Dieses Skript arbeitet nur, wenn Du in einem Brett bist!!"
EXIT
END
SELECTMESSAGE NONE
JUMPTOMESSAGE 1
Anzahl = 0
Fehler = 0
MESSAGEINFO AGE
MarkNeu = RESULT
IF RESULT = NEW THEN
CALL Untersuchen
JUMPTONEW DOWN
DO WHILE RC
CALL Untersuchen
JUMPTONEW DOWN
END
GUILOCK OFF
String = " Es wurden "||Anzahl||" Rezepte gespeichert. Es traten "||Fehler||" Fehler auf !!! "
REQUESTNOTIFY String
EXIT
/* Die Unterroutine... */
Untersuchen:
SAVEMESSAGEBODY TemporaerDatei
IstMM = 0
CALL Open('DummyDatei',TemporaerDatei,'R')
DO WHILE (~EOF('DummyDatei')&(IstMM = 0))
Zeile = ReadLn('DummyDatei')
IF (Word(Zeile,1) = MMFind) THEN
IstMM = 1
END
CALL CLOSE('DummyDatei')
IF (IstMM = 1) THEN DO
MESSAGEINFO SUBJECT
DateiName = Translate(RESULT,"_"," .:;")
DateiName = RezeptPfad||DateiName
IF SaveHeader = 1 THEN
SAVEMESSAGE DateiName
ELSE
SAVEMESSAGEBODY DateiName
IF (RC = 1) THEN DO
IF (AutoDelete = 2) THEN
DELETE ONE
IF (AutoDelete = 1) THEN DO
DELETE LATER
MARKASOLD
END
Anzahl = Anzahl + 1
END
ELSE DO
REQUESTNOTIFY " Diese Datei ist zwar eine MealMaster-Datei, beim Speichern trat jedoch ein Fehler auf!! "
Fehler = Fehler + 1
END
END
ADDRESS COMMAND
'delete >NIL:' TemporaerDatei
ADDRESS VALUE ZPPort
RETURN
/* ... und ENDE! */